CU Amiga Super CD-ROM 17/CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso/CUCD/Programming/DiceSource/src/dicehelp/AutoRefs.c

C/C++ Source or Header | 1997-09-09 | 5KB | 221 lines

/*
 *    (c)Copyright 1992-1997 Obvious Implementations Corp.  Redistribution and
 *    use is allowed under the terms of the DICE-LICENSE FILE,
 *    DICE-LICENSE.TXT.
 */

/*
 *  AUTOREFS refsfile docfile docfile docfile
 *
 *  Given one or more autodoc or .H files (e.g. intuition.doc) or include
 *  files (e.g. exec/types.h), this program appends to a dme.refs file
 *  <refsfile> appropriate lines.
 *
 *  AUTOREFS determines the file type from the extension (.h for header
 *  files, otherwise assumed to be a doc file).
 */

#include <stdio.h>
#include <string.h>

char *SetSName(char *, char *);

main(xac, xav)
int xac;
char *xav[];
{
    short i;
    FILE *fi;
    FILE *fo;
    int ac;
    char **av;

    expand_args(xac, xav, &ac, &av);

    if (ac == 1) {
    puts("autorefs outfile docfile docfile ...");
    puts("AmigaDOS wildcarding works too, btw");
    exit(1);
    }
    fo = fopen(av[1], "a");
    if (!fo) {
    printf("unable to open %s for append\n", av[1]);
    exit(1);
    }
    for (i = 2; i < ac; ++i) {
    char *file = av[i];
    short len = strlen(file);
    short doth = 0;

    if (len >= 2 && (file[len-1] == 'h' || file[len-1] == 'H') && file[len-2] == '.')
        doth = 1;

    fi = fopen(file, "r");
    if (fi) {
        if (doth) {
        printf("Scanning .H  file: %s\n", file);
        scanhfile(fi, fo, file);
        } else {
        printf("Scanning DOC file: %s\n", file);
        scandocfile(fi, fo, file);
        }
        fclose(fi);
    } else {
        printf("Unable to read %s\n", file);
    }
    }
    return(0);
}

/*
 *  Find the headers for each function entry and generate a DME.REFS
 *  entry for it.  The @@<N> is a short form seek position (this field
 *  normally holds a search string).
 */

scandocfile(fi, fo, filename)
FILE *fi;
FILE *fo;
char *filename;
{
    char buf[256];
    long pos = 0;
    short lastLineFF = 0;

    while (fgets(buf, 256, fi)) {
    short len = strlen(buf) - 1;
    char *ptr = buf + len;
    char *bas = buf;
    char *header, *tail;

    buf[len] = 0;
    while (ptr != buf && ptr[-1] != ' ' && ptr[-1] != 9)
        --ptr;
    while (bas < ptr && *bas == 12)
        ++bas;
    if (ptr != bas && *ptr && strncmp(bas, ptr, strlen(ptr)) == 0) {
        if (buf[0] == 12) {
        ++pos;
        buf[0] = 0;
        }
        header = ptr;
        for (ptr = buf + len; ptr != buf && IsAlphaNum(ptr[-1]); --ptr);
        tail = ptr;
        fprintf(fo, "%-20s (^l) %s @@%ld\n", tail, filename, pos);
    } else if (ptr == bas && *ptr && lastLineFF) {
        if (buf[0] == 12) {
        ++pos;
        buf[0] = 0;
        }
        for (ptr = buf + len; ptr != buf && IsAlphaNum(ptr[-1]); --ptr);
        fprintf(fo, "%-20s (^l) %s @@%ld\n", ptr, filename, pos);
    }
    if (buf[0] == ('l'&0x1F))
        lastLineFF = 1;
    else
        lastLineFF = 0;
    pos = ftell(fi);
    }
}

/*
 *  Find each structure definition (stupid search, assume struct on left
 *  hand side) then generate dme.refs entry from the end point of the
 *  previous structure to the beginning of the next structure.    That is,
 *  the reference refers to the structure and all fields before and after
 *  it until the next structure (before and after).
 */

scanhfile(fi, fo, filename)
FILE *fi;
FILE *fo;
char *filename;
{
    static char buf[256];
    static char sname[128];
    static char lname[128];
    long lin  = 1;
    long lin1;
    long lin2 = 1;
    long pos  = 0;
    long pos1;
    long pos2 = 0;
    short snameisvalid = 0;
    short newsname = 0;

    while (fgets(buf, 256, fi)) {
    char *ptr = buf;

    if ((ptr = strstr(buf, "struct")) || (ptr = strstr(buf, "union"))) {
        if (ptr[0] == 's')
        ++ptr;
        ptr += 5;

        ptr = SetSName(lname, ptr);

        /*
         *    search for '{'
         */

        {
        while (*ptr == ' ' || *ptr == '\t' || *ptr == '\n' || *ptr == 12)
            ++ptr;
        if (*ptr == 0) {
            short c = ' ';
            long savpos = ftell(fi);
            while (c == ' ' || c == '\t' || c == '\n' || c == 12)
            c = getc(fi);
            ptr[0] = c;
            ptr[1] = 0;
            fseek(fi, savpos, 0);
        }
        }

        if (*ptr == '{' && lname[0]) {
        if (snameisvalid)
            fprintf(fo, "%-20s %3ld %s @@%ld\n", sname, lin-lin1, filename, pos1);
        strcpy(sname, lname);
        snameisvalid = 0;
        newsname = 1;
        pos1 = pos2;
        lin1 = lin2;
        }
    }
    pos = ftell(fi);
    ++lin;

    if (strstr(buf, "}")) {
        pos2 = pos;
        lin2 = lin;
        snameisvalid = newsname;
    }
    }
    if (snameisvalid)
    fprintf(fo, "%-20s %3ld %s @@%ld\n", sname, lin-lin1, filename, pos1);
}

char *
SetSName(buf, ptr)
char *buf, *ptr;
{
    while (*ptr == ' ' || *ptr == 9)
    ++ptr;
    while (*ptr && *ptr != '\n' && *ptr != ' ' && *ptr != 9 && *ptr != 12)
    *buf++ = *ptr++;
    *buf = 0;
    return(ptr);
}

IsAlphaNum(c)
char c;
{
    if ((c >= 'a' && c <= 'z') ||
    (c >= 'A' && c <= 'Z') ||
    (c >= '0' && c <= '9') ||
    (c == '_') || (c == '(') || (c == ')')
    )
    return(1);
    return(0);
}